home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / perl5 / MLDBM / Serializer / FreezeThaw.pm next >
Encoding:
Perl POD Document  |  1998-05-10  |  335 b   |  17 lines
  1. ####################################################################
  2. package MLDBM::Serializer::FreezeThaw;
  3. BEGIN { @MLDBM::Serializer::FreezeThaw::ISA = qw(MLDBM::Serializer) }
  4.  
  5. use FreezeThaw;
  6.  
  7. sub serialize {
  8.     return FreezeThaw::freeze($_[1]);
  9. }
  10.  
  11. sub deserialize {
  12.     my ($obj) = FreezeThaw::thaw($_[1]);
  13.     return $obj;
  14. }
  15.  
  16. 1;
  17.